unit fmAbout ;

interface

uses
  Classes,
  Graphics,
  Controls,
  Forms,
  StdCtrls,
  ExtCtrls,
  ComCtrls,
  PJVersionInfo ;

type
  TdlgAbout = class( TForm )
    Image1 : TImage ;
    OKButton : TButton ;
    RichEditAbout : TRichEdit ;
    procedure OKButtonClick( Sender : TObject ) ;
    procedure FormCreate( Sender : TObject ) ;
  private
  public
  end ;

implementation

{$R *.DFM}

procedure TdlgAbout.OKButtonClick( Sender : TObject ) ;
begin
  Close ;
end ;

procedure TdlgAbout.FormCreate( Sender : TObject ) ;
begin
  RichEditAbout.Lines.Add( #13#13 ) ;

  RichEditAbout.SelAttributes.Color := clBlue ;
  RichEditAbout.SelAttributes.Style := [ fsBold ] ;
  with TPJVersionInfo.Create( Self ) do
    try
      if HaveInfo then
        RichEditAbout.Lines.Add( Application.Title + ' version: ' + FileVersion + #13 )
      else
        RichEditAbout.Lines.Add( Application.Title ) ;
    finally
      Free ;
    end ;

  RichEditAbout.SelAttributes.Color := clBlack ;
  RichEditAbout.SelAttributes.Style := [ fsBold ] ;

  RichEditAbout.Lines.Add( #13#13 + 'This software and all the accompanying files are provided "as is" ' +
      'and without any warranties expressed or implied including but not ' +
      'limited to implied warranties of merchantability and fitness for a ' + 'particular purpose.' + #13#13 +
      'In no event will the author be liable for any damages whatsoever ' +
      '(including without limitation, damages for loss of business profits, ' +
      'business interruption, loss of business information, or any other ' +
      'pecuniary loss) arising out of the use or inability to use this ' + 'product.' ) ;
  RichEditAbout.Lines.Add( #13#13 + 'Copyright 2004-2010 Mediatronix BV' ) ;
end ;

end.
